2017 Online Grocery Data

Column

Chart A

#plot of diet pepsi vs normal pepsi by day of the week

instacart_bev %>%
  filter(product_name == "Pepsi" | product_name == "Diet Pepsi" | product_name == "Diet Pepsi Wild Cherry" | product_name == "Diet Pepsi Slim Cans" | product_name == "Diet Pepsi Soda" | product_name == "Diet Pepsi Pack") %>%
  mutate(diet = if_else(product_name == "Pepsi", "Pepsi", "Diet Pepsi")) %>%
  group_by(diet, order_hour_of_day) %>%
  summarise(n = n()) %>%
  plot_ly(x = ~order_hour_of_day, y = ~n, color = ~diet, 
          type = "scatter")

## No scatter mode specifed:
##   Setting the mode to markers
##   Read more about this attribute -> https://plot.ly/r/reference/#scatter-mode

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

Column

Chart B

#beverage purchase per day

instacart_bev %>%
  group_by(order_hour_of_day) %>%
  summarise(n = n()) %>%
  plot_ly(x = ~order_hour_of_day, y = ~n,
          type = "bar") 

Chart C

#beverage purchase per day

instacart_bev %>%
  group_by(aisle, order_hour_of_day) %>%
  summarise(n = n()) %>%
  filter(aisle == "tea" | aisle == "coffee") %>%
  plot_ly(x = ~order_hour_of_day, y = ~n,
          color = ~aisle,
          type = "scatter", 
          mode = "line") 

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels